home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
pcpursut.arc
/
PCPUR.FMT
< prev
next >
Wrap
Text File
|
1987-01-07
|
625b
|
20 lines
@ 2, 70 SAY RECNO()
@ 2, 20 SAY "BBS Name"
@ 2, 33 GET PCPUR->NAME
@ 5, 25 SAY "Phone # ("
@ 5, 34 GET PCPUR->ACODE
@ 5, 37 SAY ")"
@ 5, 39 GET PCPUR->PHONE
@ 6, 4 GET PCPUR->PHONE PICTURE "99999999"
@ 8, 8 SAY "Note 1:"
@ 8, 16 GET PCPUR->NOTE1
@ 8, 42 SAY "Note 2:"
@ 8, 50 GET PCPUR->NOTE2
@ 12, 5 SAY "ESC = Exit ^Y = Delete Field ^U = Delete Record!"
@ 14, 15 SAY "PgUp = Previous Record PgDwn = Next Record"
@ 1, 3 TO 10, 74 DOUBLE
@ 3, 4 TO 3, 73 DOUBLE
@ 6, 4 TO 6, 73 DOUBLE
@ 11, 3 TO 15, 74
@ 13, 4 TO 13, 73